home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD023B.D64 / jacket list .exe (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.6 KB  |  170 lines
  1. 8 REM *** JACKET LISTER ***
  2. 9 REM *** COMPUTE SEP-86 ***
  3. 10 REM ***** PROGRAM SET UP *****
  4. 20 DIMTB$(144):DIMAB$(144)
  5. 30 PRINT"[147][154]":POKE53280,14:POKE53281,6
  6. 40 PRINT" WHAT IS TODAY'S DATE: ":PRINT:
  7. 50 PRINT" ENTER YR/DY/MO THEN <RETURN> [146]"
  8. 60 PRINT"";SPC(11);:INPUTDT$
  9. 70 PRINT"[147][159] UPPER AND LOWER CASE ? ":PRINT:
  10. 80 PRINT"[159] Y[159] OR N[159] THEN <RETURN> [146]"
  11. 90 PRINT"";SPC(11);:INPUTCC$
  12. 100 IFCC$="Y"THENCM$=CHR$(17):REM LOWER CASE
  13. 110 IFCC$<>"Y"THENCM$=CHR$(145):REM UPPER CASE
  14. 120 PRINT"[147][154]":POKE53280,14:POKE53281,6
  15. 130 PRINT"[158]WHICH DISK DRIVE DO YOU WANT TO LIST?"
  16. 140 PRINT"";SPC(11);:INPUTDI
  17. 150 REM ***** READ DISK MENU *****
  18. 160 PRINT"[147][159]":POKE53280,2:POKE53281,0
  19. 170 PRINT"  READING  DATA : PLEASE STANDBY  "
  20. 180 GOSUB1630
  21. 190 OPEN8,DI,0,"$0":FORC=1TO8:GET#8,A$:NEXT:C=1:DN$="":FORC=1TO16
  22. 200 GET#8,A$:DN$=DN$+A$:NEXT:GET#8,A$:GET#8,A$:DN$=DN$+"  ":GET#8,A$
  23. 210 DN$=DN$+A$:GET#8,A$:DN$=DN$+A$:GET#8,A$:GET#8,A$
  24. 220 GET#8,A$:GET#8,A$:C=1
  25. 230 FORA=1TO4:GET#8,A$:NEXT:PN$="":TY$=""
  26. 240 GET#8,A$:IFST<>0THEN310
  27. 250 IFA$=""THEN310
  28. 260 IFASC(A$)<>34THEN240
  29. 270 GET#8,A$:IFASC(A$)<>34THENPN$=PN$+A$:GOTO270
  30. 280 GET#8,A$:IFASC(A$)=32THEN280
  31. 290 TY$=TY$+A$:GET#8,A$:IFA$<>""THEN290
  32. 300 TB$(C)=PN$:C=C+1:IFST=0THEN230
  33. 310 CLOSE8
  34. 320 IFC>88THENGOSUB1310
  35. 330 REM *** ALPHABETIZE LISTING ***
  36. 340 PRINT"[147][159]":POKE53280,4:POKE53281,0
  37. 350 PRINT"  SORTING  DATA : PLEASE STANDBY  "
  38. 360 GOSUB1570
  39. 370 Z$="[218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218]":E=1
  40. 380 FORA=1TOC-1:C$=Z$:FORB=1TOC-1:IFC$<TB$(B)THEN400
  41. 390 C$=TB$(B):D=B
  42. 400 NEXT:AB$(E)=C$:E=E+1:TB$(D)=Z$:NEXT
  43. 410 REM  **** JACKET NAME = NS$ ***
  44. 420 NS$="*****   REFERENCE   *****"
  45. 430 REM ***** PRINT ALPHA LIST  *****
  46. 440 PRINT"[147]":POKE53280,5:POKE53281,0
  47. 450 PRINT"  PRINTING JACKET : PLEASE STANDBY  "
  48. 460 GOSUB1510
  49. 470 DD=0:CD=INT(C/2):OPEN1,4
  50. 480 FORCR=1TO2
  51. 490 PRINT#1,CHR$(10):REM LINEFEED
  52. 500 NEXTCR
  53. 510 TL$="[185]"
  54. 520 PRINT#1,TAB(2);:FORTL=1TO72:PRINT#1,TL$;:NEXTTL:PRINT#1," CUT"
  55. 530 GOSUB1130:GOSUB1140
  56. 540 GOSUB1130
  57. 550 PRINT#1,CHR$(14);NS$;CHR$(15);:REM 14 DOUBLE WIDTH 15 SINGLE
  58. 560 GOSUB1140
  59. 570 FORLE=1TO2
  60. 580 GOSUB1130:GOSUB1140
  61. 590 NEXTLE
  62. 600 GOSUB1130
  63. 610 PRINT#1,TAB(15);CM$;DN$;SPC(5);DT$;:GOSUB1140:GOSUB1160
  64. 620 IFC>32THEN790
  65. 630 REM ** PRINT : < 32 PROGRAMS **
  66. 640 FORDD=1TOCD:GOSUB1130
  67. 650 PRINT#1,CHR$(16);CHR$(50);CHR$(48);CM$;AB$(DD);:REM PRINT HEAD POSITION
  68. 660 PRINT#1,CHR$(16);CHR$(52);CHR$(53);CM$;AB$(CD+DD);:GOSUB1140
  69. 670 REM PRINT HEAD POSITION
  70. 680 NEXTDD
  71. 690 GOSUB1130:GOSUB1140:DD=DD+1
  72. 700 IFDD>17THEN720
  73. 710 GOTO690
  74. 720 GOSUB1220
  75. 730 FORSL=1TO29
  76. 740 GOSUB1200:GOSUB1210
  77. 750 NEXTSL
  78. 760 GOSUB1240
  79. 770 GOSUB1260
  80. 780 REM ** PRINT : > 32 PROGRAMS **
  81. 790 FORDD=1TO16:GOSUB1130
  82. 800 PRINT#1,CHR$(16);CHR$(50);CHR$(48);CM$;AB$(DD);:REM PRINT HEAD POSITION
  83. 810 PRINT#1,CHR$(16);CHR$(52);CHR$(53);CM$;AB$(DD+16);:GOSUB1140
  84. 830 NEXTDD
  85. 840 GOSUB1130:GOSUB1140
  86. 850 GOSUB1220
  87. 860 GOSUB1200:GOSUB1210
  88. 870 CX=(C-33)/2:CZ=CX+32
  89. 880 FORDD=33TOCZ:GOSUB1200
  90. 890 PRINT#1,CHR$(16);CHR$(50);CHR$(48);CM$;AB$(DD);:REM PRINT HEAD POSITION
  91. 900 PRINT#1,CHR$(16);CHR$(52);CHR$(48);CM$;AB$(DD+CX);:GOSUB1210
  92. 920 NEXTDD
  93. 930 GOSUB1200:GOSUB1210:DD=DD+1
  94. 940 IFDD>60THEN960
  95. 950 GOTO930
  96. 960 GOSUB1240:GOSUB1260
  97. 970 RE *** CLOSING REMARKS ***
  98. 980 PRINT"[147][159]":POKE53280,9:POKE53281,0
  99. 990 PRINT"  ALPHABETIZED DISK COVER COMPLETE  "
  100. 1000 GOSUB1460
  101. 1010 PRINT"  DO YOU WANT ANOTHER DISK COVER :"
  102. 1020 INPUT"'Y' OR 'N' THEN <RETURN>";AG$
  103. 1030 FORDD=0TO144:AB$(DD)="":NEXTDD
  104. 1040 IFAG$<>"Y"THEN1070
  105. 1050 PRINT"[147][154]":POKE53280,14:POKE53281,6:GOTO70
  106. 1060 REM ** TERMINATE PROGRAM **
  107. 1070 PRINT"[147][159]":POKE53280,7:POKE53281,11
  108. 1080 PRINT"  PROGRAM TERMINATED !  "
  109. 1090 GOSUB1410
  110. 1100 FORWT=1TO1000:NEXTWT
  111. 1110 PRINT"[147][154]":POKE53280,14:POKE53281,6:END
  112. 1120 REM *** DISK JACKET OUTLINE ***
  113. 1130 PRINT#1,"  [181]       [165]*";:RETURN
  114. 1140 PRINT#1,CHR$(16);CHR$(54);CHR$(52);"*[167]       [182]":RETURN
  115. 1150 REM PRINT HEAD POSITION
  116. 1160 PRINT#1,"  [181]       [165]*";
  117. 1170 PRINT#1,TAB(15);"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";:
  118. 1180 PRINT#1,CHR$(16);CHR$(54);CHR$(52);"*[167]       [182]":RETURN
  119. 1190 REM PRINT HEAD POSITION
  120. 1200 PRINT#1,"          [181]";:RETURN:
  121. 1210 PRINT#1,CHR$(16);CHR$(54);CHR$(53);"[182]":RETURN:REM PRINT HEAD POSITION
  122. 1220 CL$="[195]"
  123. 1230 PRINT#1,TAB(2);:FORCL=1TO72:PRINT#1,CL$;:NEXTCL:PRINT#1," FOLD":RETURN
  124. 1240 LL$="[184]"
  125. 1250 PRINT#1,TAB(10);:FORLL=1TO56:PRINT#1,LL$;:NEXTLL:PRINT#1," CUT":RETURN
  126. 1260 PRINT#1:FORCR=1TO3
  127. 1270 PRINT#1,CHR$(10)
  128. 1280 NEXTCR:CLOSE1:GOTO980
  129. 1290 REM ** MENU TOO LONG TO LIST **
  130. 1300 REM ** CAN ONLY LIST 88 PGMS **
  131. 1310 PRINT"[147][159]":POKE53280,1:POKE53281,7
  132. 1320 PRINT"";SPC(10);"[159]TOO  MANY  PROGRAMS"
  133. 1330 PRINTSPC(10);"[159] TO LIST ON JACKET"
  134. 1340 GOSUB1460
  135. 1350 PRINT"";SPC(8);"PRINT  THOSE  THAT  FIT?"
  136. 1360 PRINTSPC(9);"(Y[146] OR N[146] THEN <RETURN>)
  137. 1370 [153]"";[166]15);:[133]AW$
  138. 1380 [139]AW$[179][177]"Y"[167]1070
  139. 1390 C[178]88:[142]
  140. 1400 [143]  **** SOUND SUBROUTINES ***
  141. 1410 [143]  ##### BUZZER #####
  142. 1420 [151]S,240
  143. 1430 H[178]54273:S[178]54278:W[178]54276:V[178]54296
  144. 1440 [151]V,15:[151]H,5:[151]W,33:[129]T[178]0[164]500:[130]
  145. 1450 [129]T[178]H[171]1[164]V:[151]T,0:[130]:[142]
  146. 1460 [143]  ##### DONG #####
  147. 1470 H[178]54273:S[178]54278:W[178]54276:V[178]54296
  148. 1480 [151]S[171]1,9:[151]H,36:[151]S[170]9,16:[151]V,15:[129]U[178]1[164]4:[151]W,21:[129]T[178]0[164]500
  149. 1490 [130]:[151]W,20:[130]
  150. 1500 [129]T[178]H[171]1[164]V:[151]T,0:[130]:[142]
  151. 1510 [143]  ##### DING #####
  152. 1520 H[178]54273:S[178]54278:W[178]54276:V[178]54296
  153. 1530 [129]AA[178]1[164]3
  154. 1540 [151]V,15:[151]H,40:[151]S[171]1,9:[151]W,17:[129]T[178]1[164]500:[130]T
  155. 1550 [129]T[178]H[171]1[164]V:[151]T,0:[130]
  156. 1560 [130]AA:[142]
  157. 1570 [143]  ##### BING-BONG #####
  158. 1580 H[178]54273:S[178]54278:W[178]54276:V[178]54296
  159. 1590 [151]V,15:[151]S[171]1,88:[151]S,89:[151]W[171]1,1:[129]U[178]1[164]6:[151]W,65
  160. 1600 [151]H,20:[129]T[178]0[164]120:[130]
  161. 1610 [151]W,64:[151]H,50:[151]W,65:[129]T[178]0[164]120:[130]:[151]W,64:[130]
  162. 1620 [129]T[178]H[171]1[164]V:[151]T,0:[130]:[142]
  163. 1630 [143]  ##### BELLS #####
  164. 1640 V[178]54296:W[178]54276:[151]W[170]1,96
  165. 1650 [151]W[170]1,9
  166. 1660 [151]V,15:[129]L[178]1[164]5:[151]W,21
  167. 1670 [151]W[171]3,99[172][187](1):[151]W[170]11,99[172][187](1)
  168. 1680 [129]T[178]1[164]600:[130]:[151]W,20:[130]
  169. 1690 [129]I[178]W[171]4[164]V:[151]I,0:[130]:[142]
  170.